perm filename TEST[VV,BGB] blob
sn#131899 filedate 1974-11-21 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 TITLE CAMDRV
C00013 ENDMK
C⊗;
TITLE CAMDRV
P←17
SA: MOVE P,[XWD 10,PDL]
SETZM FLAG
STRT: SPCWAR 1,GO
INCHRW
SPCWAR 636367
SPCWAR STOP
SKIPN FLAG↔JRST .-1
EXIT
;SPACE WAR MODULE. --------------------------------------------------
GO: MOVE 17,[XWD 10,PDL6]
SKIPL CNT↔JRST L2
L1: AOSGE CNT↔DISMIS
MOVEI =300↔MOVEM CNT
CONO 600,400040
DISMIS
L2: SOSLE CNT↔DISMIS
MOVNI =300↔MOVEM CNT
CONO 600,200040
DISMIS
STOP: CONO 600,40
SETOM FLAG
DISMIS
FLAG: 0
CNT: 0
PDL: BLOCK 10
PDL6: BLOCK 10
END SA